home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / catstmnt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  334 b   |  22 lines
  1. /*
  2.                          C A T S T M N T . C
  3. */
  4.  
  5. #include "iccomp.h"
  6.  
  7. ESTRUC_ *cat_stmnt(lval, rval)
  8.     ESTRUC_
  9.         *lval,
  10.         *rval;
  11. {
  12.     patchup_false(lval, 1);
  13.  
  14.     if (!nestlevel)
  15.     {
  16.         outbin(lval->code, lval->codelen);
  17.         discard(lval);
  18.         return (rval);
  19.     }
  20.  
  21.     return (catcode(lval, rval));
  22. }